home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
winbatch.arc
/
SLIDES.WBT
< prev
next >
Wrap
Text File
|
1991-05-22
|
1KB
|
35 lines
; This is the slide sho WBT file.
; After a BMP file is displayed, hold the shift key down a second to
; move to the next BMP file
; First we iconize all windows to get them out of the way.
Tab=Num2Char(9)
Windows=WinItemize()
WinCount=ItemCount(Windows,Tab) ;Windows are delimited by tabs
:winloop
if WinCount==0 then goto winexit
ThisWindow=ItemExtract(WinCount,Windows,Tab)
WinIconize(ThisWindow)
WinCount=WinCount-1
goto winloop
:winexit
DirChange(FilePath(FileLocate("WIN.INI")))
ListOfBmpFiles=FileItemize("*.BMP")
CurrentBmpNumber=1
MaxBmpNumber=ItemCount(ListOfBmpFiles," ")
Display(5,"The Wallpaper Show","Press the SHIFT key to move to the next Wallpaper.")
:loop
if CurrentBmpNumber>MaxBmpNumber then Exit
ShowBmpFile=ItemExtract(CurrentBmpNumber,ListOfBmpFiles," ")
TileTheWallpaper=@FALSE
if FileSize(ShowBmpFile)<40000 then TileTheWallpaper=@TRUE
Wallpaper(ShowBmpFile,TileTheWallpaper)
currentBmpNumber=CurrentBmpNumber+1
:wait
Yield
if !IsKeyDown(@SHIFT) then goto wait
goto loop